home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / 4cmp22o.zip / BYTEBNCH.4TH < prev    next >
Text File  |  1994-08-13  |  543b  |  17 lines
  1. ( BYTE MAGAZINE BENCHMARK )
  2. DECIMAL 256 MSDOS
  3. 8190 CONSTANT SIZE  10000 CONSTANT FLAGS ( STARTS AT 10000 )
  4. 0 0 IN/OUT : DO-PRIME  FLAGS SIZE 1 FILL
  5.             0 SIZE 0
  6.             DO  FLAGS  I + C@
  7.                 IF I 2*  3 + DUP I +  FLAGS +
  8.                         BEGIN  DUP SIZE FLAGS + U<
  9.                         WHILE  DUP 0 C<- OVER + REPEAT
  10.                         DROP DROP 1+
  11.                 THEN
  12.             LOOP
  13.       U. ." PRIMES"  CR   ;
  14. : MAIN ." 10 ITERATIONS" CR 10 0 DO DO-PRIME LOOP ;
  15. INCLUDE FORTHLIB
  16. END
  17.